home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gc.d64 / slither war.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  65 lines
  1. 0 REM*BASED ON THE TPUG VIC 20 PROGRAM  'TRON' BY KEITH BRUCE
  2. 1 REM*GAME MODIFIED & CONVERTED TO THE  COMMODORE 64 BY ROGER D BURGE, #2667
  3. 2 REM*TORONTO PET USERS GROUP INC.,     TORONTO, ONTARIO, CANADA
  4. 4 BS=32:BN=87:DIMCS(80):CS(.)=30:CS(39)=60:CS(80)=22:CS(41)=62:SA=81:T9=39:EI=80
  5. 6 POKE53280,.:POKE53281,.
  6. 7 GOSUB900:GOSUB245
  7. 30 POKE53281,1:PRINT"[142][147]";:POKE53281,.
  8. 31 PRINT"              SLITHER WAR!              [146]SCORE:         HI:"HI     
  9. 35 PRINT"[145]SCORE:                          HI:"HI:POKE781,40:SYSJS
  10. 50 FORT=1104TO1984STEP40:POKET,214:POKET+54272,13:POKET+39,214:POKET+54311,13:NEXT
  11. 55 FORT=1105TO1142:POKET,214:POKET+54272,13:POKET+880,214:POKET+55152,13:NEXT
  12. 65 TR=1545:C(1)=1582:C(2)=1822:LD=1:DA=1:DB=2:LL=40:L3=41:SW=1083:L=RND(-TI)
  13. 70 C(3)=1342:L=3:T4=24:KC=.9:T3=33
  14. 75 SYSSI:SYSJS:DR=L3-PEEK(ZP):IFPEEK(TR+DR)<>BSTHEN190
  15. 105 POKETR,SA:TR=TR+DR:POKETR,CS(DR+LL):SC=SC+DA:PRINT"";SC:
  16. 110 IFRND(DA)>KCTHEN75
  17. 115 FORR=DATO3:IFPEEK(C(R))=T4THENNEXTR:GOTO75
  18. 120 IFRND(DA)>KCTHEN145
  19. 125 IFPEEK(C(R)-DA)=BSTHENPOKEC(R),BN:C(R)=C(R)-DA:POKEC(R),CS(T9):NEXTR:GOTO75
  20. 135 IFPEEK(C(R)+DA)=BSTHENPOKEC(R),BN:C(R)=C(R)+DA:POKEC(R),CS(L3):NEXTR:GOTO75
  21. 145 IFPEEK(C(R)-LL)=BSTHENPOKEC(R),BN:C(R)=C(R)-LL:POKEC(R),CS(.):NEXTR:GOTO75
  22. 155 IFPEEK(C(R)+LL)=BSTHENPOKEC(R),BN:C(R)=C(R)+LL:POKEC(R),CS(EI):NEXTR:GOTO75
  23. 165 IFPEEK(C(R)-DA)<>BSANDPEEK(C(R)+DA)<>BSANDPEEK(C(R)+LL)<>BSANDPEEK(C(R)-LL)<>BSTHEN175
  24. 170 NEXT:GOTO75
  25. 175 POKESW,BN:FORH=DATO10:POKEC(R),42:POKES2,T3:POKEC(R),24:POKES2,.:NEXT
  26. 180 L=L-1:SC=SC+100:PRINT"SCORE:"SC:IFL=.THEN190
  27. 185 SW=SW+DA:NEXTR:GOTO75
  28. 190 FORH=DATO10:POKES1,17:POKETR,42:POKES2,129:POKETR,24:POKES2,.:POKES1,.:NEXT
  29. 200 PRINT"[159] GAME OVER! "
  30. 205 PRINT"[158] PLAY AGAIN?  (Y/N) "
  31. 206 IFSC>HITHENHI=SC:PRINT""SPC(30)" HI:"HI"[157] "
  32. 210 GETA$:IFA$="Y"THENSC=.:GOTO30
  33. 215 IFA$<>"N"THEN210
  34. 220 GOTO500
  35. 245 PRINT"[147][153][214][214][214][214][214][214][214][214][214][214][214][214][214] SLITHER WAR! [153][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
  36. 246 PRINT"    [158]BY ROGER D. BURGE AND KEITH BRUCE   "
  37. 250 PRINT" YOUR SNAKE [209][209][209][209][209]> IS CONTROLED BY      JOYSTICK #1.
  38. 251 [153]" YOU MUST STAY ALIVE  IN A SNAKE PEN    WITH 3 OTHER SNAKES TRYING";
  39. 252 [153]" TO GET MORE  SPACE. ";
  40. 255 [153]"IF A  SNAKE TOUCHES ITSELF, A    WALL OR A SNAKE IT  DIES. EACH SNAKE";
  41. 260 [153]"    GROWS LONGER AS IT MOVES.":[153]" YOU GET 1 POINT FOR  EACH SEGMENT ";
  42. 261 [153]"YOU  GROW. ";
  43. 265 [153]"100 POINTS FOR EACH OF THE 3      OPPOSING SNAKES KILLED.
  44. 269 PRINT"[153]                    "
  45. 270 PRINT"[153] PRESS FIRE TO PLAY "
  46. 271 PRINT"[153]                    "
  47. 280 IFPEEK(56321)AND16THEN280
  48. 285 RETURN
  49. 500 PRINT"    [144][146][147]":END                           
  50. 900 FORT=820TO860:READA:POKET,A:NEXT:JS=820:ZP=251
  51. 930 FORT=861TO888:READA:POKET,A:NEXT:SI=861
  52. 950 SV=54272:FORT=SVTOSV+24:POKET,.:NEXT
  53. 960 POKESV+24,15:POKESV+5,17:POKESV+6,17
  54. 970 POKESV+1,28:POKESV,.
  55. 975 POKESV+12,17:POKESV+13,17:POKESV+8,28:POKESV+7,.
  56. 980 S1=54276:S2=SV+11:RETURN
  57. 4090 DATA173,1,220,41,15
  58. 4150 DATA201,7,208,5,162,40,76,90,3
  59. 4210 DATA201,13,208,5,162,1,76,90,3
  60. 4270 DATA201,11,208,5,162,42,76,90,3
  61. 4330 DATA201,14,208,2,162,81
  62. 4390 DATA134,251,96
  63. 4870 DATA160,.,169,17,141,4,212,162,255,24,202,224,.,208,251,200,192
  64. 4930 DATA2,208,239,169,16,141,4,212,166,251,96
  65.